home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
heaptrk.zip
/
DEMTRAK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-01-04
|
485b
|
21 lines
Program TrakDem;
{A little demonstartion of the very powerful HEAP TRAK unit V1.0}
Uses HeapTrak;
Var
I : Integer;
B : Array[1..10] of Pointer;
Begin
Writeln('Using up some heap.............');
For I := 1 to 10 do
GetMem(B[I],I*10);
Writeln('Freeing up some heap .........');
For I := 1 to 10 do
FreeMem(B[I],I*10);
Writeln;
Writeln('Now look at the file (with and editior) POINTER.LST and see the results.');
Writeln; Writeln;
end.